home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 4.2 / programs / lw4starttoaster < prev    next >
Text File  |  1999-03-08  |  4KB  |  151 lines
  1. /* StartToaster V2.1 -- Have the flyer start up however you like.      */
  2. /* By Bob Caron (Grue) © 1995 NewTek Inc.                              */
  3. /* post4 line CB */
  4. /* © 1998  NewTek, Inc., of Texas */
  5.  
  6. OPTIONS RESULTS
  7. TOASTERLIB="ToasterARexx.port"
  8.  
  9. call remlib('rexxsupport.library')
  10. call addlib("rexxsupport.library", 0,-30,0)
  11. call remlib('ToasterARexx.port')
  12. call remlib('PROJECT_REXX_PORT')
  13.  
  14. if ~exists("toaster:") then do
  15.   say "Start Toaster V2.1"
  16.   say
  17.   say "Your Toaster: assignment is missing, or has been removed."
  18.   say
  19.   say "Some possible solutions:"
  20.   say
  21.   say "1) Reboot your computer and try again."
  22.   say "2) Re-Install your Toaster/Flyer software."
  23.   say "   (A minimal install is sufficient.)"
  24.   say
  25.   say "Press <Return> to continue."
  26.   pull stuff
  27.   call quit
  28.   end
  29.  
  30. if ~exists("toaster:programs/videotoaster") then do
  31.   say "Start Toaster V2.1"
  32.   say
  33.   say "I can't find the program 'VideoToaster' (needed for this software to run)."
  34.   say
  35.   say "Some possible reasons for this failure:"
  36.   say
  37.   say "1) Your toaster: assign may be pointing to the wrong location."
  38.   say "2) You are running ScreamerNet. StartToaster MUST be run before you"
  39.   say "   run a ScreamerNet node."
  40.   say "3) Your Toaster software is missing important system files."
  41.   say "   Run CheckSoftware to verify."
  42.   say
  43.   say "Press <Return> to continue."
  44.   pull stuff
  45.   call quit
  46.   end
  47.  
  48. startdir="toaster:arexx/editor/StartUpScripts"
  49.  
  50. if exists(startdir) then startup=1
  51. else startup=0
  52.  
  53. dir=showdir(startdir,'f','*')
  54. temp=translate(dir,'?',' ','?')
  55. temp2=translate(temp,' ','*',' ')
  56. dir = temp2
  57.  
  58. IF SHOW('Ports','PROJECT_REXX_PORT') THEN
  59.   IF ADDLIB('ToasterARexx.port' , 0) THEN x=Bummer("The Video Toaster/Flyer software is already running!! ")
  60.  
  61. call pragma("D","toaster:programs")
  62.  
  63. address command "run >NIL: toaster:programs/videotoaster"
  64.  
  65. do while ~SHOW('Ports','PROJECT_REXX_PORT')
  66.    address command "c:wait 1"
  67. end
  68.  
  69. call addlib('PROJECT_REXX_PORT' , 0)
  70. call addlib('ToasterARexx.port' , 0)
  71.  
  72. /* Add Startup Code here... */
  73. address command "avail flush"
  74. address command "copy libs:post4.library libs:post.library"
  75. address command "copy libs:psnf4.library libs:psnf.library"
  76. address command "assign ttmp: toaster:programs"
  77. address command "protect ttmp:LightWave.FP add rwed"
  78. address command "protect ttmp:Modeler.FP add rwed"
  79. address command "protect ttmp:LWSN.FP add rwed"
  80. address command "copy ttmp:LightWave.FP4 ttmp:LightWave.FP"
  81. address command "copy ttmp:Modeler.FP4 ttmp:Modeler.FP"
  82. address command "copy ttmp:LWSN.FP4 ttmp:LWSN.FP"
  83. address command "assign ttmp:"
  84. address command "assign ttmp: toaster:programs/lightwave_support"
  85. address command "protect ttmp:LW-config add rwed"
  86. address command "protect ttmp:MOD-cong add rwed"
  87. address command "protect ttmp:ModelerMacroList add rwed"
  88. address command "copy ttmp:LW-config4 ttmp:LW-config"
  89. address command "copy ttmp:MOD-config4 ttmp:MOD-config"
  90. address command "copy ttmp:ModelerMacroList4 ttmp:ModelerMacroList"
  91. address command "assign ttmp:"
  92.  
  93. call set_view(4)
  94.  
  95. if startup=1 then do
  96.    loopto=words(dir); loop=1
  97.    do while (loop<loopto+1)
  98.       program=translate(word(dir,loop),' ','?')
  99.       filenam=program
  100.       if upper(right(program,5))=".REXX" then
  101.          filenam=left(program,length(filenam)-5)
  102.       if isarexx(startdir||"/"||program) then
  103.          number=LADDTOOL(filenam,startdir||"/"||program||" 1",1)
  104.       if number=12 then break
  105.       loop=loop+1
  106.    end
  107. end
  108.  
  109. /* End of code. */
  110.  
  111. quit:
  112.  
  113. call remlib('ToasterARexx.port')
  114. call remlib('PROJECT_REXX_PORT')
  115. call remlib('rexxsupport.library')
  116. exit
  117.  
  118. bummer: /* <- An Arnie like error system */
  119. parse arg message
  120. say "Start Toaster V2.1"
  121. say
  122. say message
  123. address command "c:wait 3"
  124. exit
  125.  
  126. isarexx:
  127. parse arg file
  128. if exists(file) then do
  129.     if open('infile',file,'READ') then do
  130.        filestart = readch('infile',2)
  131.        call close('infile')
  132.        if filestart="/*" then return 1
  133.     end
  134. end
  135. return 0
  136.  
  137. laddtool: procedure
  138. parse arg filenam,start,number
  139.  
  140. signal on error
  141. signal on syntax
  142.  
  143. call ADDTOOL(filenam,start,number)
  144.  
  145. syntax:
  146. error:
  147.  
  148. signal off error
  149.  
  150. return rc
  151.